home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Shell Folders.xpl < prev    next >
Text File  |  2002-11-01  |  2KB  |  77 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="3"
  4. "UIPATH"="System\File System\Folders\Data"
  5. "NAME"="General Folders #1"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="3.01"
  8. "TEXT 1"="Personal Files"
  9. "TEXT 2"="Program Data"
  10. "TEXT 3"="Desktop"
  11. "DESCRIPTION 1"=""Personal Files" specifies the folder where your files from Lotus 1-2-3, Microsoft Excel, Microsoft Word, Corel Paint and so on are located."
  12. "DESCRIPTION 2"=""Program Data" is used by new applications from Microsoft for hidden but customized files. For example, Internet Explorer stores the Quick Launch bar links there."
  13. "DESCRIPTION 3"="Desktop" is the folder used for nearly all files on your workplace, except some system icons (e.g. trash can)."
  14. "DESCRIPTION 4"="*IMPORTANT* When changing any folder here, you need to copy the files from the old location to the new one "by hand". X-Setup can't do this! *IMPORTANT*"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  22. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  23.  
  24. 'sP_IE="HKCU\Software\Microsoft\Internet Explorer\"
  25. 'sV_IE_DL="Download Directory"
  26.  
  27. Sub Plugin_Initialize 
  28.  s=RegReadValue(sp1 & "Personal")
  29.  SetUIElement 1,s
  30.  
  31.  s=RegReadValue(sP1 & "AppData")
  32.  SetUIElement 2,s
  33.  
  34.  s=RegReadValue(sP1 & "Desktop")
  35.  SetUIElement 3,s
  36. End Sub
  37.  
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42.  
  43.  
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  iWriteMethod=0
  46.  
  47.  if GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  48.     'Win 24bit (not really 16bit but also not real 32bit)
  49.     iWriteMode=1
  50.  else
  51.     iWriteMode=4
  52.  end if
  53.  
  54.  s=GetUIElement(1)
  55.  Call RegWriteValue(sP1 & "Personal",s,1)
  56.  Call RegWriteValue(sP2 & "Personal",s,iWriteMode)
  57.  
  58.  s=GetUIElement(2)
  59.  Call RegWriteValue(sP1 & "AppData",s,1)
  60.  Call RegWriteValue(sP2 & "AppData",s,iWriteMode)
  61.  
  62.  s=GetUIElement(3)
  63.  Call RegWriteValue(sP1 & "Desktop",s,1)
  64.  Call RegWriteValue(sP2 & "Desktop",s,iWriteMode)
  65.  
  66.  
  67.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  68.  Call Logoff() 'Required because of ActiveDestop and other crap
  69. End Sub
  70.  
  71.  
  72. Sub Plugin_Terminate 
  73. End Sub
  74.  
  75.  
  76.  
  77.